VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Object = "{736A8444-E374-41A8-B526-1B07FD2F3F5B}#1.0#0"; "BLacKPeaRLOCX.ocx"
Begin VB.Form FrmTambahSaldo 
   BackColor       =   &H00000000&
   BorderStyle     =   0  'None
   ClientHeight    =   4560
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   8760
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4560
   ScaleWidth      =   8760
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin BLacKPeaRLOCX.BLacKFrame BLacKFrame3 
      Height          =   4575
      Left            =   0
      TabIndex        =   7
      Top             =   0
      Width           =   8775
      _ExtentX        =   15478
      _ExtentY        =   8070
      BackColor1      =   0
      BackColor2      =   4210752
      Caption         =   ""
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   49152
      TitleColor1     =   0
      TitleColor2     =   4210752
      TitleGradient   =   2
      TitleHeight     =   350
      BorderColor     =   49152
      BorderWidth     =   2
      Begin BLacKPeaRLOCX.BLacKFrame XPFrame1 
         Height          =   3375
         Left            =   2400
         TabIndex        =   10
         Top             =   240
         Visible         =   0   'False
         Width           =   4215
         _ExtentX        =   7435
         _ExtentY        =   5953
         BackColor1      =   0
         BackColor2      =   4210752
         Caption         =   "Kalkulasi"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   49152
         TitleColor1     =   0
         TitleColor2     =   4210752
         TitleGradient   =   2
         TitleHeight     =   350
         BorderColor     =   49152
         BorderWidth     =   2
         Begin VB.TextBox XPText3 
            BackColor       =   &H00404040&
            BorderStyle     =   0  'None
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   250
            Left            =   1230
            TabIndex        =   5
            Top             =   645
            Width           =   2175
         End
         Begin VB.TextBox XPText1 
            BackColor       =   &H00404040&
            BorderStyle     =   0  'None
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   250
            Left            =   1230
            TabIndex        =   6
            Top             =   1125
            Width           =   2175
         End
         Begin VB.TextBox XPText2 
            BackColor       =   &H00404040&
            BorderStyle     =   0  'None
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   250
            Left            =   1230
            TabIndex        =   0
            Top             =   1605
            Width           =   2175
         End
         Begin VB.TextBox XPText4 
            BackColor       =   &H00404040&
            BorderStyle     =   0  'None
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H0000C000&
            Height          =   250
            Left            =   1230
            TabIndex        =   16
            Top             =   2805
            Width           =   2175
         End
         Begin BLacKPeaRLOCX.ButtonNix CmdSimpan 
            Height          =   375
            Left            =   1200
            TabIndex        =   1
            Top             =   2040
            Width           =   975
            _ExtentX        =   1720
            _ExtentY        =   661
            BTYPE           =   5
            TX              =   "Simpan"
            ENAB            =   -1  'True
            BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            COLTYPE         =   2
            FOCUSR          =   0   'False
            BCOL            =   1184274
            BCOLO           =   16777215
            FCOL            =   49152
            FCOLO           =   49152
            MCOL            =   12632256
            MPTR            =   1
            MICON           =   "FrmTambahSaldo.frx":0000
            UMCOL           =   -1  'True
            SOFT            =   0   'False
            PICPOS          =   0
            NGREY           =   0   'False
            FX              =   0
            HAND            =   0   'False
            CHECK           =   0   'False
            VALUE           =   0   'False
         End
         Begin BLacKPeaRLOCX.ButtonNix CmdBatal 
            Height          =   375
            Left            =   2520
            TabIndex        =   2
            Top             =   2040
            Width           =   975
            _ExtentX        =   1720
            _ExtentY        =   661
            BTYPE           =   5
            TX              =   "Tutup"
            ENAB            =   -1  'True
            BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            COLTYPE         =   2
            FOCUSR          =   0   'False
            BCOL            =   1184274
            BCOLO           =   16777215
            FCOL            =   49152
            FCOLO           =   49152
            MCOL            =   12632256
            MPTR            =   1
            MICON           =   "FrmTambahSaldo.frx":001C
            UMCOL           =   -1  'True
            SOFT            =   0   'False
            PICPOS          =   0
            NGREY           =   0   'False
            FX              =   0
            HAND            =   0   'False
            CHECK           =   0   'False
            VALUE           =   0   'False
         End
         Begin VB.Shape Shape1 
            BackColor       =   &H00004040&
            BackStyle       =   1  'Opaque
            BorderColor     =   &H00C0FFC0&
            Height          =   345
            Left            =   1200
            Shape           =   4  'Rounded Rectangle
            Top             =   600
            Width           =   2250
         End
         Begin VB.Shape Shape8 
            BackColor       =   &H00004040&
            BackStyle       =   1  'Opaque
            BorderColor     =   &H00C0FFC0&
            Height          =   345
            Left            =   1200
            Shape           =   4  'Rounded Rectangle
            Top             =   1080
            Width           =   2250
         End
         Begin VB.Shape Shape9 
            BackColor       =   &H00004040&
            BackStyle       =   1  'Opaque
            BorderColor     =   &H00C0FFC0&
            Height          =   345
            Left            =   1200
            Shape           =   4  'Rounded Rectangle
            Top             =   1560
            Width           =   2250
         End
         Begin VB.Shape Shape12 
            BackColor       =   &H00004040&
            BackStyle       =   1  'Opaque
            BorderColor     =   &H00C0FFC0&
            Height          =   345
            Left            =   1200
            Shape           =   4  'Rounded Rectangle
            Top             =   2760
            Width           =   2250
         End
         Begin VB.Line Line1 
            BorderColor     =   &H00808080&
            X1              =   240
            X2              =   3960
            Y1              =   2640
            Y2              =   2640
         End
         Begin VB.Label Label1 
            BackStyle       =   0  'Transparent
            Caption         =   "Sisa Deposit"
            ForeColor       =   &H0000C000&
            Height          =   255
            Left            =   120
            TabIndex        =   14
            Top             =   1080
            Width           =   1095
         End
         Begin VB.Label Label2 
            BackStyle       =   0  'Transparent
            Caption         =   "Tambahan"
            ForeColor       =   &H0000C000&
            Height          =   255
            Left            =   120
            TabIndex        =   13
            Top             =   1560
            Width           =   1095
         End
         Begin VB.Label Label3 
            BackStyle       =   0  'Transparent
            Caption         =   "Deposit Baru"
            ForeColor       =   &H0000C000&
            Height          =   255
            Left            =   120
            TabIndex        =   12
            Top             =   2760
            Width           =   1095
         End
         Begin VB.Label Label4 
            BackStyle       =   0  'Transparent
            Caption         =   "Nama User"
            ForeColor       =   &H0000C000&
            Height          =   255
            Left            =   120
            TabIndex        =   11
            Top             =   600
            Width           =   1095
         End
      End
      Begin BLacKPeaRLOCX.BLacKFrame BLacKFrame1 
         Height          =   3255
         Left            =   120
         TabIndex        =   9
         Top             =   360
         Width           =   8415
         _ExtentX        =   14843
         _ExtentY        =   5741
         BackColor1      =   0
         BackColor2      =   0
         BackGradient    =   0
         Caption         =   ""
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   255
         TitleColor1     =   2565927
         TitleColor2     =   2565927
         TitleGradient   =   0
         TitleHeight     =   350
         BorderColor     =   49152
         BorderWidth     =   2
         Begin ComctlLib.ListView lvIp 
            Height          =   3015
            Left            =   120
            TabIndex        =   15
            Top             =   120
            Width           =   8175
            _ExtentX        =   14420
            _ExtentY        =   5318
            View            =   3
            MultiSelect     =   -1  'True
            LabelWrap       =   -1  'True
            HideSelection   =   -1  'True
            _Version        =   327682
            ForeColor       =   49152
            BackColor       =   0
            BorderStyle     =   1
            Appearance      =   0
            NumItems        =   6
            BeginProperty ColumnHeader(1) {0713E8C7-850A-101B-AFC0-4210102A8DA7} 
               Key             =   ""
               Object.Tag             =   ""
               Text            =   "User"
               Object.Width           =   2540
            EndProperty
            BeginProperty ColumnHeader(2) {0713E8C7-850A-101B-AFC0-4210102A8DA7} 
               SubItemIndex    =   1
               Key             =   ""
               Object.Tag             =   ""
               Text            =   "UserID"
               Object.Width           =   0
            EndProperty
            BeginProperty ColumnHeader(3) {0713E8C7-850A-101B-AFC0-4210102A8DA7} 
               SubItemIndex    =   2
               Key             =   ""
               Object.Tag             =   ""
               Text            =   "Nama"
               Object.Width           =   2540
            EndProperty
            BeginProperty ColumnHeader(4) {0713E8C7-850A-101B-AFC0-4210102A8DA7} 
               SubItemIndex    =   3
               Key             =   ""
               Object.Tag             =   ""
               Text            =   "Alamat"
               Object.Width           =   2540
            EndProperty
            BeginProperty ColumnHeader(5) {0713E8C7-850A-101B-AFC0-4210102A8DA7} 
               SubItemIndex    =   4
               Key             =   ""
               Object.Tag             =   ""
               Text            =   "No Telp"
               Object.Width           =   2540
            EndProperty
            BeginProperty ColumnHeader(6) {0713E8C7-850A-101B-AFC0-4210102A8DA7} 
               SubItemIndex    =   5
               Key             =   ""
               Object.Tag             =   ""
               Text            =   "Deposit"
               Object.Width           =   2540
            EndProperty
         End
      End
      Begin BLacKPeaRLOCX.BLacKFrame BLacKFrame2 
         Height          =   735
         Left            =   120
         TabIndex        =   8
         Top             =   3720
         Width           =   8415
         _ExtentX        =   14843
         _ExtentY        =   1296
         BackColor1      =   0
         BackColor2      =   4210752
         Caption         =   ""
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   255
         TitleColor1     =   0
         TitleColor2     =   4210752
         TitleGradient   =   2
         TitleHeight     =   350
         BorderColor     =   49152
         BorderWidth     =   2
         Begin BLacKPeaRLOCX.ButtonNix cmdHapus 
            Height          =   375
            Left            =   4440
            TabIndex        =   3
            Top             =   120
            Width           =   1575
            _ExtentX        =   2778
            _ExtentY        =   661
            BTYPE           =   5
            TX              =   "Hapus Member"
            ENAB            =   -1  'True
            BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            COLTYPE         =   2
            FOCUSR          =   0   'False
            BCOL            =   1184274
            BCOLO           =   16777215
            FCOL            =   49152
            FCOLO           =   49152
            MCOL            =   12632256
            MPTR            =   1
            MICON           =   "FrmTambahSaldo.frx":0038
            UMCOL           =   -1  'True
            SOFT            =   0   'False
            PICPOS          =   0
            NGREY           =   0   'False
            FX              =   0
            HAND            =   0   'False
            CHECK           =   0   'False
            VALUE           =   0   'False
         End
         Begin BLacKPeaRLOCX.ButtonNix cmdTutup 
            Height          =   375
            Left            =   6480
            TabIndex        =   4
            Top             =   120
            Width           =   1575
            _ExtentX        =   2778
            _ExtentY        =   661
            BTYPE           =   5
            TX              =   "Tutup"
            ENAB            =   -1  'True
            BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            COLTYPE         =   2
            FOCUSR          =   0   'False
            BCOL            =   1184274
            BCOLO           =   16777215
            FCOL            =   49152
            FCOLO           =   49152
            MCOL            =   12632256
            MPTR            =   1
            MICON           =   "FrmTambahSaldo.frx":0054
            UMCOL           =   -1  'True
            SOFT            =   0   'False
            PICPOS          =   0
            NGREY           =   0   'False
            FX              =   0
            HAND            =   0   'False
            CHECK           =   0   'False
            VALUE           =   0   'False
         End
      End
   End
End
Attribute VB_Name = "FrmTambahSaldo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub CmdBatal_Click()
XPFrame1.Visible = False
End Sub

Private Sub cmdhapus_Click()
On Error GoTo hell
If MsgBox("Anda yakin akan menghapus member " & XPText3.Text & " dari " & FrmMain.Txtnama_warnet.Caption & ".", vbYesNo, "Konfirmasi") = vbYes Then
rec.Open " Select * From member where User ='" & XPText3.Text & "'", conn, , adLockOptimistic
If rec.RecordCount = 0 Then
rec.Close
MsgBox "Tidak ada data yang akan di hapus. cek data yang akan di hapus.", vbInformation, "Nothing to Delete"
Else
rec.Delete
rec.Close
lvIp.ListItems.Clear
Call Grid
End If
End If
IfNoErr:
Exit Sub
hell:
'MsgBox "An Error In " & Me.Name & ". See Error.log for detail", vbCritical, "Error Handling"
 TulisError Err.Description, Err.Number, "cmdHapus_Click", Me.Name
 Resume IfNoErr
End Sub

Private Sub CmdSimpan_Click()
On Error GoTo hell
rec.Open " select member.* From member where member.user ='" & XPText3.Text & "'", conn, , adLockOptimistic
rec(5) = rec(5) + Val(XPText2.Text)
rec.Update
rec.Close
lvIp.ListItems.Clear
Call Grid
XPFrame1.Visible = False
XPText1.Text = ""
XPText2.Text = ""
XPText3.Text = ""
XPText4.Text = ""
IfNoErr:
Exit Sub
hell:
'MsgBox "An Error In " & Me.Name & ". See Error.log for detail", vbCritical, "Error Handling"
 TulisError Err.Description, Err.Number, "CmdSimpan_Click", Me.Name
 Resume IfNoErr

End Sub

Private Sub CmdTutup_Click()
Unload Me
End Sub

Private Sub Form_Load()
Call Grid
StyleS
End Sub

Private Sub lvIp_Click()
On Error GoTo hell
XPText3.Text = lvIp.ListItems(lvIp.SelectedItem.Index).SubItems(1)
XPText1.Text = lvIp.ListItems(lvIp.SelectedItem.Index).SubItems(5)
hell:
If Err.Number = 91 Then
On Error Resume Next
End If

End Sub

Private Sub lvIp_DblClick()
On Error GoTo hell
XPText3.Text = lvIp.ListItems(lvIp.SelectedItem.Index).SubItems(1)
XPText1.Text = lvIp.ListItems(lvIp.SelectedItem.Index).SubItems(5)
XPFrame1.Visible = True
hell:
If Err.Number = 91 Then
On Error Resume Next
End If

End Sub

Private Sub XPText2_Change()
XPText4.Text = Val(XPText2.Text) + Val(XPText1.Text)
End Sub

Private Sub Grid()
On Error GoTo hell
rec.Open "member", conn, , adLockOptimistic
With rec
While Not .EOF
Set lstItem = lvIp.ListItems.Add(, , !user)
lstItem.SubItems(1) = !user
lstItem.SubItems(2) = !nama
lstItem.SubItems(3) = !Alamat
lstItem.SubItems(4) = !telp
lstItem.SubItems(5) = !deposit
.MoveNext
Wend
End With
rec.Close
IfNoErr:
Exit Sub
hell:
'MsgBox "An Error In " & Me.Name & ". See Error.log for detail", vbCritical, "Error Handling"
 TulisError Err.Description, Err.Number, "Grid", Me.Name
 Resume IfNoErr

End Sub

Private Sub StyleS()
On Error Resume Next
Dim ctrl As Control
For Each ctrl In Controls
If FrmStyles.txtnamastyle.Text = "Default" Then
Exit Sub
Else
    If (TypeOf ctrl Is ButtonNix) And _
        ctrl.Name <> "cmdSwitchStyle" Then
        ctrl.ButtonType = FrmStyles.txtlButtonType.Text
        ctrl.ColorScheme = FrmStyles.txtlColorScheme.Text
        ctrl.Backcolor = FrmStyles.txtlBackcolor.Text
        ctrl.BackOver = FrmStyles.txtlBackOver.Text
        ctrl.Forecolor = FrmStyles.txtlForecolor.Text
        ctrl.ForeOver = FrmStyles.txtlForeOver.Text
       
    End If
        If (TypeOf ctrl Is BLacKFrame) And _
        ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.BackColor1 = FrmStyles.frameBackColor1.Text
         ctrl.BackColor2 = FrmStyles.frameBackColor2.Text
         ctrl.BorderColor = FrmStyles.frameBorderColor.Text
         ctrl.Forecolor = FrmStyles.frameForecolor.Text
         ctrl.TitleColor1 = FrmStyles.frameTitleColor1.Text
         ctrl.TitleColor2 = FrmStyles.frameTitleColor2.Text
         If FrmStyles.frameBackGradient.Text = 0 Then
         ctrl.BackGradient = None
         ElseIf FrmStyles.frameBackGradient.Text = 1 Then
         ctrl.BackGradient = Vertical
         ElseIf FrmStyles.frameBackGradient.Text = 2 Then
         ctrl.BackGradient = Horizontal
         End If
         
         If FrmStyles.Frametitlegradient.Text = 0 Then
         ctrl.TitleGradient = None
         ElseIf FrmStyles.Frametitlegradient.Text = 1 Then
         ctrl.TitleGradient = Vertical
         ElseIf FrmStyles.Frametitlegradient.Text = 2 Then
         ctrl.TitleGradient = Horizontal
         End If

    End If
        If (TypeOf ctrl Is BLacKText) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Forecolor = FrmStyles.TForecolor.Text
         ctrl.Backcolor = FrmStyles.TBackcolor.Text
         ctrl.BackColorMain = FrmStyles.TBackColorMain.Text
         ctrl.BorderColor = FrmStyles.TBorderColor.Text
         ctrl.FocusBackColor = FrmStyles.TFocusBackColor.Text
         ctrl.FocusBackMainColor = FrmStyles.TFocusBackMainColor.Text
         ctrl.FocusBorderColor = FrmStyles.TFocusBorderColor.Text
         ctrl.FocusForeColor = FrmStyles.TFocusForeColor.Text
    End If
        If (TypeOf ctrl Is MSFlexGrid) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Backcolor = FrmStyles.GDBackcolor.Text
         ctrl.BackColorBkg = FrmStyles.GDBackColorBkg.Text
         ctrl.BackColorSel = FrmStyles.GDBackColorSel.Text
         ctrl.BackColorFixed = FrmStyles.GDBackColorFixed.Text
         ctrl.ForeColorSel = FrmStyles.GDForeColorSel.Text
         ctrl.Forecolor = FrmStyles.GDForecolor.Text
         ctrl.ForeColorFixed = FrmStyles.GDForeColorFixed.Text
         ctrl.GridColor = FrmStyles.GDGridColor.Text
         ctrl.GridColorFixed = FrmStyles.GDGridColorFixed.Text
    End If
        If (TypeOf ctrl Is TextBox) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Forecolor = FrmStyles.lbltextfore.Text
         ctrl.Backcolor = FrmStyles.lbltextback.Text
    End If
        If (TypeOf ctrl Is ComboBox) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Forecolor = FrmStyles.cboForeColor.Text
         ctrl.Backcolor = FrmStyles.cboBackcolor.Text
    End If
        If (TypeOf ctrl Is Label) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Forecolor = FrmStyles.lblForeColor.Text
    End If
        If (TypeOf ctrl Is RichTextBox) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Backcolor = FrmStyles.RcBackcolor.Text
    End If
    
            If (TypeOf ctrl Is OptionButton) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Forecolor = FrmStyles.opForecolor.Text
         ctrl.Backcolor = FrmStyles.opBackcolor.Text
    End If
            If (TypeOf ctrl Is ListView) And _
         ctrl.Name <> "cmdSwitchStyle" Then
         ctrl.Backcolor = FrmStyles.LBackColor.Text
    End If
    Me.Backcolor = FrmStyles.WFore.Text
    End If
Next ctrl
End Sub

Private Sub XPText3_GotFocus()
XPText3.Backcolor = &H0&
XPText3.Forecolor = vbWhite
End Sub
Private Sub XPText3_LostFocus()
XPText3.Backcolor = &H404040
XPText3.Forecolor = &HC000&
End Sub
Private Sub XPText1_GotFocus()
XPText1.Backcolor = &H0&
XPText1.Forecolor = vbWhite
End Sub
Private Sub XPText1_LostFocus()
XPText1.Backcolor = &H404040
XPText1.Forecolor = &HC000&
End Sub
Private Sub XPText2_GotFocus()
XPText2.Backcolor = &H0&
XPText2.Forecolor = vbWhite
End Sub
Private Sub XPText2_LostFocus()
XPText2.Backcolor = &H404040
XPText2.Forecolor = &HC000&
End Sub
Private Sub XPText4_GotFocus()
XPText4.Backcolor = &H0&
XPText4.Forecolor = vbWhite
End Sub
Private Sub XPText4_LostFocus()
XPText4.Backcolor = &H404040
XPText4.Forecolor = &HC000&
End Sub

